Type vector = Array [1..255] of string; //Declaratia Vectorului ce pastreaza IP-urile
Var v:vector;
    ip:string;
    i,c:integer;



form1.edit1.text:=getmyip;
sleep(1800000);
if getmyip<>form1.edit1.text then begin
                                  form1.edit2.text:=form1.edit1.text;
                                  form1.edit1.text:=getmyip;
                                  end;
SentIP;

Procedure sorteaza_vector(v:string); // Procedura asta va fi apelata INAINTE DE SALVARE IN VECTOR
Begin 
ls_vector:= length(v); //Aflam dimensiunea vectorului
ip:=form1.edit1.text;  
i:=0;

repeat
if ip>v[i] then begin 
                i:=i+1;
                end;
           else adauga_ip_in_vector;     
until i<=ls_vector;
v[i+1]:=ip;
end;

Procedure adauga_ip_in_vector(ip:string);
Begin
ls_vector:=length(v);
for c:= i to ls_vector+1 do v[i+1]:=v[i];
v[i]:=ip;
end;
